﻿Public Class form_level
    Dim kelas As player
    Dim xUrutan As Integer
    Public Property urutan As Integer
        Get
            Return xUrutan
        End Get
        Set(ByVal value As Integer)
            xUrutan = value
        End Set
    End Property
    Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click
        form_beginner.Show()
        Me.Close()
    End Sub

    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click

        form_intermediate.Show()
        Me.Close()
    End Sub

    Private Sub PictureBox3_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox3.Click

        formreport.Show()
        Me.Close()
    End Sub

    Private Sub PictureBox5_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox5.Click

        Form_enter.Show()
        Me.Close()
    End Sub

    Public Sub form_level_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim xCurrent As String = System.IO.File.ReadAllText("CurrentPlayer.txt")
        Label1.Text = xCurrent
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class